Top 10k strings from Fruitmachine (1985)(Firebird Software)[a].z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [Z80] /

Back to the directory listing

   3 ;"FRUIT MACHINE";
   2 ;"You have ";:
   2 ;"  ";k$(6
   2  or 4, according to which
   1 yu,pos;"VW ";
   1 yu,pos;" @#$ ";
   1 win=w(pw):
   1 want the ON BREAK PRINT  
   1 w$="YOU'VE WON OVER `10"
   1 w$="YOU'VE NO MONEY LEFT":
   1 w$="Push a key to insert coin":
   1 w$="Hold/cancel- Push 1,2,3,4":
   1 q$="Any other will spin reels"
   1 money=money-10
   1 money=money+win
   1 money+"p  ":
   1 m$=m$+"."+g$
   1 m$=m$+"   ":
   1 lsym=r(r):
   1 ^507&508 should be includedif you 
   1 WELL DONE!
   1 THIS PUTS THE UDG'S IN THEIR PLACE
   1 RESET  CHARACTER SET TO 0's
   1 Push a key to insert coin
   1 Any other will spin reelsI
   1 ;"~Q~-QUIT (Only works while the  reels are spinning)";
   1 ;"gamble";
   1 ;"collect"
   1 ;"You win ";w$;
   1 ;"You have `1  "
   1 ;"R. HUTCHISON and";
   1 ;"Program written by";
   1 ;"Press: G-Gamble C-collect"
   1 ;"Press any key to play again..."
   1 ;"Press 'M' to";
   1 ;"Press 'C' to";
   1 ;"PRESS ANY KEY..."
   1 ;"NUDGES-";Y;
   1 ;"NUDGES-";Y-1
   1 ;"A. BEVERIDGE"
   1 ;"***NUDGE NOW***"
   1 ,pos;"nopqr":
   1 ,pos;"UQRTS":
   1 ,pos;"FGHIJ";
   1 ,pos;"7890!";
   1 ,pos;"1Z23 ";
   1 ,pos;"1KLM ":
   1 ,pos;" 45  ":
   1 ,pos;" %&' ":
   1 ,pos;"  =";
   1 ,pos;"  6  ":
   1 ,(reels-p)*2
   1 +n,p;k$(pw+(p=3
   1 )=money/100
   1 (ru-100005
   1 (money/100
   1 ';"On ~HOLD~ push key 1,2,3
   1  same key again."
   1  reel you want to nudge.":
   1  reel you want to hold.
   1  You win `2
   1  To cancel hold, press the
   1  Push any key to spin reels":
   1  On ~NUDGE~ push key 1,2,3